home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / misc / RHelfer.lha / RHelferV2.11 / Install < prev    next >
Text File  |  1999-03-15  |  4KB  |  148 lines
  1. ;Installationsskript für "Rätselhelfer V2.11" (12.03.1999)
  2. ;Namen festlegen
  3. (SET #progname "Rätselhelfer V2.11 (Programm)")
  4. (SET #progfile "Rätselhelfer")
  5. (SET #dokname "Dokumentation im ASCII-Format")
  6. (SET #dokfile "LiesMichZuerst.dok")
  7. (SET #guidename "Dokumentation im AmigaGuide-Format")
  8. (SET #guidefile "LiesMichZuerst.guide")
  9. (SET #abkname "Abkürzungsliste im ASCII-Format")
  10. (SET #abkfile "Abkürzungen.txt")
  11. (SET #demoname "Demo.brn (enthält 5000 Begriffe)")
  12. (SET #demofile "Demo.brn")
  13. (SET #regname "Registrierungsformular")
  14. (SET #regfile "Registrierung.txt")
  15. (SET #keyname "Keyfile (wird für Vollversion benötigt)")
  16. (SET #keyfile "Rätsel.key")
  17. (SET #brainname "Rätsel.brn (Vollversion)")
  18. (SET #brainfile "Rätsel.brn")
  19. (SET #muster "")
  20.  
  21. ;Zielverzeichnis festlegen
  22. (SET @default-dest
  23.   (ASKDIR
  24.     (PROMPT  "Bitte Zielverzeichnis auswählen.\nEs wird kein neues Unterverzeichnis erzeugt.")
  25.     (HELP    @askdir-help)
  26.     (DEFAULT @default-dest)
  27.   )
  28. )
  29.  
  30. ;Dateien auswählen
  31. (SET #parts
  32.   (ASKOPTIONS
  33.     (PROMPT "Welche Dateien sollen installiert werden?")
  34.     (HELP @askoptions-help)
  35.     (IF (= (EXISTS #keyfile) 1)
  36.       (CHOICES #progname #dokname #guidename #abkname #demoname #regname #keyname #brainname)
  37.       (CHOICES #progname #dokname #guidename #abkname #demoname #regname)
  38.     )
  39.   )
  40. )
  41.  
  42. ;Dateigrößen aufsummieren und Dateimuster zusammensetzen
  43. (IF (IN #parts 0)
  44.   (
  45.     (SET #alles (+ #alles (+ (GETSIZE #progfile) (GETSIZE (CAT #progfile ".info")))))
  46.     (SET #muster (CAT #progfile "|" #progfile ".info"))
  47.   )
  48. )
  49. (IF (IN #parts 1)
  50.   (
  51.     (SET #alles (+ #alles (+ (GETSIZE #dokfile) (GETSIZE (CAT #dokfile ".info")))))
  52.     (IF (#muster)
  53.       (SET #muster (CAT #muster "|"))
  54.     )
  55.     (SET #muster (CAT #muster #dokfile "|" #dokfile ".info"))
  56.   )
  57. )
  58. (IF (IN #parts 2)
  59.   (
  60.     (SET #alles (+ #alles (+ (GETSIZE #guidefile) (GETSIZE (CAT #guidefile ".info")))))
  61.     (IF (#muster)
  62.       (SET #muster (CAT #muster "|"))
  63.     )
  64.     (SET #muster (CAT #muster #guidefile "|" #guidefile ".info"))
  65.   )
  66. )
  67. (IF (IN #parts 3)
  68.   (
  69.     (SET #alles (+ #alles (+ (GETSIZE #abkfile) (GETSIZE (CAT #abkfile ".info")))))
  70.     (IF (#muster)
  71.       (SET #muster (CAT #muster "|"))
  72.     )
  73.     (SET #muster (CAT #muster #abkfile "|" #abkfile ".info"))
  74.   )
  75. )
  76. (IF (IN #parts 4)
  77.   (
  78.     (SET #alles (+ #alles (+ (GETSIZE #demofile) (GETSIZE (CAT #demofile ".info")))))
  79.     (IF (#muster)
  80.       (SET #muster (CAT #muster "|"))
  81.     )
  82.     (SET #muster (CAT #muster #demofile "|" #demofile ".info"))
  83.   )
  84. )
  85. (IF (IN #parts 5)
  86.   (
  87.     (SET #alles (+ #alles (+ (GETSIZE #regfile) (GETSIZE (CAT #regfile ".info")))))
  88.     (IF (#muster)
  89.       (SET #muster (CAT #muster "|"))
  90.     )
  91.     (SET #muster (CAT #muster #regfile "|" #regfile ".info"))
  92.   )
  93. )
  94. (IF (IN #parts 6)
  95.   (
  96.     (SET #alles (+ #alles (GETSIZE #keyfile)))
  97.   )
  98. )
  99. (IF (IN #parts 7)
  100.   (
  101.     (SET #alles (+ #alles (+ (GETSIZE #brainfile) (GETSIZE (CAT #brainfile ".info")))))
  102.     (IF (#muster)
  103.       (SET #muster (CAT #muster "|"))
  104.     )
  105.     (SET #muster (CAT #muster #brainfile "|" #brainfile ".info"))
  106.   )
  107. )
  108.  
  109. ;Fortschrittsanzeige auf 0% setzen
  110. (COMPLETE 0)
  111.  
  112. ;Datengröße und freien Plattenplatz anzeigen
  113. (MESSAGE
  114.   "Ausgewähltes Zielverzeichnis:\n"
  115.   @default-dest
  116.   "\n\nVerfügbarer Platz auf dem Datenträger:\n"
  117.   (getdiskspace @default-dest)
  118.   "\n\nBenötigter Platz:\n"
  119.   #alles
  120. )
  121.  
  122. ;Keyfile kopieren, falls angewählt
  123. (IF (IN #parts 6)
  124.   (
  125.     (COPYFILES
  126.       (SOURCE #keyfile)
  127.       (DEST "S:")
  128.     )
  129.     (SET #summe (+ #summe (GETSIZE #keyfile)))
  130.     (COMPLETE (/ (* #summe 100) #alles))
  131.   )
  132. )
  133.  
  134. ;restliche ausgewählte Dateien kopieren
  135. (IF (#muster)
  136.   (FOREACH "" (CAT "(" #muster ")")
  137.     (COPYFILES
  138.       (SOURCE @each-name)
  139.       (DEST @default-dest)
  140.     )
  141.     (SET #summe (+ #summe (GETSIZE @each-name)))
  142.     (COMPLETE (/ (* #summe 100) #alles))
  143.   )
  144. )
  145.  
  146. ;fertig
  147. (EXIT "Viel Spaß beim Rätsellösen wünscht\n\n           Peter Krüger")
  148.